object fEditar: TfEditar
  Left = 185
  Top = 225
  Width = 697
  Height = 400
  BorderIcons = [biSystemMenu]
  Caption = 'fEditar'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label7: TLabel
    Left = 16
    Top = 87
    Width = 41
    Height = 13
    Caption = 'N'#186' GUIA'
  end
  object Label8: TLabel
    Left = 146
    Top = 87
    Width = 65
    Height = 13
    Caption = 'Data Emiss'#227'o'
  end
  object Label9: TLabel
    Left = 18
    Top = 41
    Width = 98
    Height = 13
    Caption = 'Nome do Contratado'
  end
  object Label10: TLabel
    Left = 354
    Top = 42
    Width = 141
    Height = 13
    Caption = 'Nome Profissional Executante'
  end
  object Label11: TLabel
    Left = 280
    Top = 88
    Width = 106
    Height = 13
    Caption = 'Data data Autoriza'#231#227'o'
  end
  object Label12: TLabel
    Left = 413
    Top = 87
    Width = 31
    Height = 13
    Caption = 'Senha'
  end
  object Label13: TLabel
    Left = 546
    Top = 87
    Width = 101
    Height = 13
    Caption = 'Data Validade Senha'
  end
  object Label14: TLabel
    Left = 17
    Top = 129
    Width = 91
    Height = 13
    Caption = 'Nome do Prestador'
  end
  object Label16: TLabel
    Left = 47
    Top = 184
    Width = 160
    Height = 13
    Caption = 'E-Eletiva U-Urg'#234'ncia/Emerg'#234'ncia'
  end
  object Label17: TLabel
    Left = 47
    Top = 171
    Width = 104
    Height = 13
    Caption = 'Car'#225'ter da Solicita'#231#227'o'
  end
  object Label18: TLabel
    Left = 352
    Top = 128
    Width = 162
    Height = 13
    Caption = 'Nome Profissional / Complementar'
  end
  object DBText1: TDBText
    Left = 23
    Top = 12
    Width = 337
    Height = 17
    DataField = 'NOME_BENEFICIARIO'
    DataSource = DtSrc
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clHotLight
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object DBText2: TDBText
    Left = 511
    Top = 12
    Width = 82
    Height = 17
    DataField = 'TIPO_GUIA'
    DataSource = DtSrc
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label1: TLabel
    Left = 408
    Top = 12
    Width = 98
    Height = 20
    Caption = 'Tipo de Guia :'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object DBEdit1: TDBEdit
    Left = 17
    Top = 103
    Width = 127
    Height = 21
    DataField = 'NUMERO_GUIA'
    DataSource = DtSrc
    TabOrder = 3
    OnKeyPress = FormKeyPress
  end
  object DBEdit2: TDBEdit
    Left = 146
    Top = 103
    Width = 132
    Height = 21
    DataField = 'DATA_EMISSAO'
    DataSource = DtSrc
    TabOrder = 4
    OnKeyPress = FormKeyPress
  end
  object btGravar: TBitBtn
    Left = 221
    Top = 320
    Width = 75
    Height = 41
    Caption = 'Gravar'
    TabOrder = 12
    OnClick = btGravarClick
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      18000000000000030000120B0000120B00000000000000000000BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7F00000000000000000000000000000000
      00000000000000000000000000000000000000007F7F7FBFBFBFBFBFBF000000
      FF0000FF00000000007F7F7FFF0000FF0000FFFFFFBFBFBFBFBFBF000000FF00
      00FF0000000000BFBFBFBFBFBF000000FF0000FF00000000007F7F7FFF0000FF
      0000FFFFFFBFBFBFBFBFBF000000FF0000FF0000000000BFBFBFBFBFBF000000
      FF0000FF0000000000BFBFBF7F7F7F7F7F7FBFBFBFBFBFBFBFBFBF000000FF00
      00FF0000000000BFBFBFBFBFBF000000FF0000FF00007F7F0000000000000000
      00000000000000000000007F7F00FF0000FF0000000000BFBFBFBFBFBF000000
      FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00
      00FF0000000000BFBFBFBFBFBF000000FF00007F7F0000000000000000000000
      00000000000000000000000000007F7F00FF0000000000BFBFBFBFBFBF000000
      FF0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
      00FF0000000000BFBFBFBFBFBF000000FF0000000000FFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000BFBFBFBFBFBF000000
      FF0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
      00FF0000000000BFBFBFBFBFBF000000FF0000000000FFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000BFBFBFBFBFBF000000
      000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
      00000000000000BFBFBFBFBFBF000000FF0000000000FFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000000000BFBFBFBFBFBF7F7F7F
      0000000000000000000000000000000000000000000000000000000000000000
      000000007F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF}
  end
  object btCancelar: TBitBtn
    Left = 118
    Top = 320
    Width = 89
    Height = 41
    Caption = 'Cancelar'
    TabOrder = 13
    OnClick = btCancelarClick
    Glyph.Data = {
      F6060000424DF606000000000000360000002800000018000000180000000100
      180000000000C0060000C40E0000C40E00000000000000000000C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D0CEE5
      B3B7D2A5ABC9AAA9BDB9BCC0C7CCC5C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0BD
      C3D99497BC6469AE4C55A447519F4E5599656D99656F857D808EB5B1C1C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0D0E9666BC72A2EB5040DAE0E24C4182ACB1322C60819C80213B509149F37
      3C9D4444846B678BBAB3C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0A9BBE23F5AB41627BC202CE12333F61734F21332ED1935F01931
      FC1832F3172FDB1823B92426A43331916367909DA3ACC0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0B8BDE8344CB01134D11533F21830F8182CF4102FED
      0E32EB0C30E8102BF31232F01138E81D35EC222CE11115B42837875B6E87A7B9
      ACC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C02F3ED01431E60C30F2162DF617
      27EF1E2DEB2F45DA3D50D44350D6293BE50D2FE10B39ED0230ED1034F41B37EE
      091FAB25358A5B6183DCD4D4C0C0C0C0C0C0C0C0C0C0C0C07B83E31323E3102C
      FD0B2FF51933D75364DC96A1EAC9D1FFD7DFFFD5DDFFA8B8FC6A7FED1D39E90F
      31F80F30F61030ED1732E31223A6353E86A2A2A5C0C0C0C0C0C0C0C0C0B4BAF5
      353CDA1428FA112BFC0623DC859CF5E0F2FDFFFFFBFFFFFCFFFFFEFAFFFFFFFF
      FFA2ADF32E36EB1423F3182EF71734F40F2AF5172CD323339965717BC0C0C0C0
      C0C0C0C0C0626EE10F2AE61031F4152BD47E86F6FBFFFFF9FCFFFFFDF8FFFCFF
      FFFCFFFBFEFF7F87E52834D2212EEF1E29F4212FF41629EE142EFF1A32F00815
      A0676697C0C0C0C0C0C0D5D5F73243D50A2BEF1233EE2E3FC8CDCFF1FFFEFFFC
      FCFAFFFFF7FFFCFFF9FAFF949AE30F23C51A35F10E2CEF1F33E82E41E82339E6
      0E2FF9152FF41C28CC524F9B9D9EB7C0C0C0AFB5F3162DCB1033F9142DE6505F
      CBE7EDFAFFFFFFFFFFF9FDFFFAF8FFFF8E9CE71F2FC81231F6092BF60B2DE72C
      44CE91A6FF3D55D6092DEC0F2FF71C2EE22726849499B8C0C0C08297F7172FDC
      1931FA1421DA6478D7E7FFFFFCFFFFFBFFFCF9FFFF7187DE0924C60F2EF4122C
      FB1A27EA4146D6EEF8FFF2FCFF7985DE0D2DE40E2DFA1E34EE1A24809097B4C0
      C0C0637DF61B32DF1A2BF61B25E4525EC9EAF5FEFFFEFEF8FAFF939FE41022C3
      1533F0092DF4162BE24B58DBCDD7FEFFFFFFFCFFFF7F8BDE0D2BE2112DFC2031
      EE22277FA2A3C0C0C0C07B94F51428D42030FE1120E7353CBEE6E2F6FFFDFF9A
      9DE52533C21B2DF0162FF70F2EE93B4CD0C8DAFDF0FFFEFDFFF9F9FFFF7E8EE4
      0B2BE01429FB2A32F2434493BBB5D4C0C0C09CACF61E34D30E2CF4122FFC000F
      A88798DF8C90EC1D2BCB122EE71936FB1626E53C42D3ECFBFFF9FFFEFFFFFFFF
      FFFDDDE2FF424ECF1030E61B2EF92424DE7576B5C0C0C0C0C0C0CDD9F3253DCA
      0B2CF80B32F9082BD5142FC6222FDE1C2BEE162FFC0D2BDC4A5BDAD7DAFEFAFF
      FEFBFCFCFDF9FEF3FAFE939CF72734E9102EF01D2EEF292BCB9EA4C9C0C0C0C0
      C0C0C0C0C05C6DE50C28EF0331F00933EE112EED1D2CF71A29FE1124F13853DE
      CBDCFEFFFFFFFFFFFFFFFEFFFFFFFFD4E1F93444D11326F8162FFD1C2BD84C52
      C8C0C0C0C0C0C0C0C0C0C0C0C0B2B2EF292DD81235F30F2FF6172CF7202CFA1B
      2AF5162CDEB8D2F4E1F3FFEFF9FFDBEDF9CDD8EE8A90F10E1EBF1331E40E34F3
      182AEC4353C9B0BEDEC0C0C0C0C0C0C0C0C0C0C0C0C0C0C07B80E60E24DA132D
      F5132DF5182FF1152EEE041CCF132C9C4554B86066CE4252BC2030B51B27CB15
      30EC1234F70C2FE9293DCC8F9AE3C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C03F4EE11126DB1534F30B31E91434F5152CEF1C33D6212ED51C21D61727
      DD1D2EEE2032FB0D2CF30E2EEC0A25CB7C8AE2C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0677CDA1C32D71533EE112BF2152CF70F2CF2
      182DF61F2CFA1A2EFA1E2FF61623E8232AEB3A49D3889CE3C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0A8AEF14758D51F
      35CA1831DD0E29EC1830EF172DE4142CE1172CD03443CF7D88E7B7C0F6C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0B3C8F1718CF55A6DFB3851FA4161F86481F98CA4F3BDD2F4C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0}
  end
  object DBEdit4: TDBEdit
    Left = 281
    Top = 103
    Width = 129
    Height = 21
    DataField = 'DATA_AUT'
    DataSource = DtSrc
    TabOrder = 5
    OnKeyPress = FormKeyPress
  end
  object DBEdit5: TDBEdit
    Left = 416
    Top = 102
    Width = 121
    Height = 21
    DataField = 'SENHA'
    DataSource = DtSrc
    TabOrder = 6
    OnKeyPress = FormKeyPress
  end
  object DBEdit6: TDBEdit
    Left = 542
    Top = 102
    Width = 132
    Height = 21
    DataField = 'DATA_VAL_SENHA'
    DataSource = DtSrc
    TabOrder = 7
    OnKeyPress = FormKeyPress
  end
  object btSair: TBitBtn
    Left = 503
    Top = 320
    Width = 75
    Height = 41
    Caption = 'Sair'
    TabOrder = 14
    OnClick = btSairClick
    Glyph.Data = {
      E60C0000424DE60C0000000000003600000028000000250000001D0000000100
      180000000000B00C0000120B0000120B00000000000000000000BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBF9F60606F3030BFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F60609F6060A06060A06060
      6F3030BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F60609F60
      60A06060B06060C06060CF6060B060606F3030BFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF9F60609F6060AF6F6FC06F6FCF6F6FCF6F6FCF606FCF606FB06060
      6F3030AF60609F60609F60609F60609F60609F60609F60609F60609F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F6060D06F70D06F70D06F
      6FD06F6FD06F6FD06F6FD06F6FB0606F6F3030FFA0A0FFAFAFFFAFB0FFB0B0FF
      BFBFFFC0C0FFC0C0FFC0C09F6060BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF9F6060DF7070DF7070D07070D07070D06F70D06F6FD06F6FB06F6F
      6F30305FB06030CF6030CF6030CF6030CF6030CF6030CF60FFC0C09F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F6060DF7070DF7070DF70
      70DF7070DF7070D07070D07070BF6F6F6F30305FB06030CF6030CF6030CF6030
      CF6030CF6030CF60FFC0C09F6060BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF9F6060DF7F7FDF7F7FDF7F7FDF707FDF7070DF7070DF7070BF6F6F
      6F30305FB06030CF6030CF6030CF6030CF6030CF6030CF60FFC0C09F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F6060E07F7FE07F7FE07F
      7FE07F7FDF7F7FDF7F7FDF707FBF6F6F6F30305FB06030CF6030CF6030CF6030
      CF6030CF6030CF60FFC0C09F6060BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF9F6060E08080E07F80E07F7FE07F7FE07F7FE07F7FE07F7FBF7070
      6F30305FB06030CF6030CF6030CF6030CF6030CF6030CF60FFC0C09F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F6060EF8080EF8080E080
      80E08080E0808FEFA0A0E07F7FBF70706F303070BF7030CF6030CF6030CF6030
      CF6030CF6030CF60FFC0C09F6060BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF9F6060EF808FEF8080EF8080EF8080F0BFBFFFFFFFF0B0B0C07070
      6F3030F0DFC0C0F0BF7FDF907FDF9060D08060D08060D080FFC0C09F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F6060F08F8FEF8F8FEF8F
      8FEF808FF0BFBFFFFFFFF0AFAFC070706F3030F0DFC0FFFFDFFFFFDFFFFFDFFF
      FFDFE0FFCFE0FFCFFFC0C09F6060BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF9F6060F08F8FF08F8FF08F8FF08F8FEF8F8FF0A0A0EF808FC07070
      6F3030F0DFC0FFFFDFFFFFDFFFFFDFFFFFDFFFFFDFFFFFDFFFC0C09F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F6060F09090F09090F08F
      90F08F8FF08F8FF08F8FF08F8FC07F7F6F3030F0DFC0FFFFDFFFFFDFFFFFDFFF
      FFDFFFFFDFFFFFDFFFC0C09F6060BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF9F6060FF9090FF9090FF9090F09090F09090F08F90F08F8FC07F7F
      6F3030F0DFC0FFFFDFFFFFDFFFFFDFFFFFDFFFFFDFFFFFDFFFC0C09F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F6060FF909FFF9090FF90
      90FF9090FF9090FF9090F09090CF7F7F6F3030F0DFC0FFFFDFFFFFDFFFFFDFFF
      FFDFFFFFDFFFFFDFFFC0C09F6060BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF9F6060FF9F9FFF9F9FFF9F9FFF909FFF909FFF9090FF9090CF7F7F
      6F3030F0DFC0FFFFDFFFFFDFFFFFDFFFFFDFFFFFDFFFFFDFFFC0C09F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F6060FF9F9FFF9F9FFF9F
      9FFF9F9FFF9F9FFF9F9FFF9F9FCF7F7F6F3030F0DFC0FFFFDFFFFFDFFFFFDFFF
      FFDFFFFFDFFFFFDFFFC0C09F6060BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBF9F6060FF9090FF9F9FFF9F9FFF9F9FFF9F9FFF9F9FFF9F9FCF8080
      6F3030F0DFC0FFFFDFFFFFDFFFFFDFFFFFDFFFFFDFFFFFDFFFC0C09F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F60609F6060C07F7FDF8F
      8FFF9F9FFF9F9FFF9F9FFF9F9FCF80806F3030F0DFC0FFFFDFFFFFDFFFFFDFFF
      FFDFFFFFDFFFFFDFFFC0C09F6060BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBF9F60609F6060A06F6FC07F7FF09090FF9F9FCF8080
      6F3030A060609F60609F60609F60609F60609F60609F60609F60609F6060BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBF9F60609F6060AF7070B070706F3030BFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF9F6060
      6F3030BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBF00}
  end
  object BitBtn4: TBitBtn
    Left = 325
    Top = 53
    Width = 22
    Height = 25
    Caption = '...'
    TabOrder = 1
    OnClick = BitBtn4Click
  end
  object BitBtn5: TBitBtn
    Left = 324
    Top = 141
    Width = 24
    Height = 25
    Caption = '...'
    TabOrder = 9
    OnClick = BitBtn5Click
  end
  object DBEdit7: TDBEdit
    Left = 18
    Top = 56
    Width = 296
    Height = 21
    DataField = 'NOME_CONTRATADO'
    DataSource = DtSrc
    TabOrder = 0
    OnKeyPress = FormKeyPress
  end
  object DBEdit9: TDBEdit
    Left = 14
    Top = 174
    Width = 29
    Height = 21
    CharCase = ecUpperCase
    DataField = 'CARATER_SOLICITACAO'
    DataSource = DtSrc
    TabOrder = 11
    OnKeyPress = FormKeyPress
  end
  object DBEdit10: TDBEdit
    Left = 16
    Top = 144
    Width = 297
    Height = 21
    DataField = 'NOME_PRESTADOR'
    DataSource = DtSrc
    TabOrder = 8
    OnKeyPress = FormKeyPress
  end
  object DBComboBox1: TDBComboBox
    Left = 352
    Top = 55
    Width = 322
    Height = 21
    DataField = 'NOME_EXECUTANTE'
    DataSource = DtSrc
    ItemHeight = 13
    TabOrder = 2
    OnKeyPress = FormKeyPress
  end
  object DBComboBox2: TDBComboBox
    Left = 352
    Top = 144
    Width = 323
    Height = 21
    DataField = 'NOME_EXECUTANTE1'
    DataSource = DtSrc
    ItemHeight = 13
    TabOrder = 10
    OnKeyPress = FormKeyPress
  end
  object btExcluir: TBitBtn
    Left = 313
    Top = 320
    Width = 75
    Height = 41
    Caption = 'Excluir'
    TabOrder = 15
    OnClick = btExcluirClick
    Glyph.Data = {
      1E070000424D1E070000000000003600000028000000160000001A0000000100
      180000000000E806000000000000000000000000000000000000C0C0C0C0C0C0
      C0C0C0C0C0C07F7F7F7F7F7FC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000C0C0
      C0C0C0C07F7F7F7F7F7F7F7F7F7F7F7F7F7F7FC0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C07F7F7F7F7F7FC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      0000C0C0C0C0C0C00000000000007F7F7F7F7F7F7F7F7FC0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C07F7F7F7F7F7F7F7F7F7F7F7FC0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C000000000FF00007F00007F0000000000007F7F7F7F7F7F7F7F7FC0C0
      C0C0C0C0C0C0C0C0C0C00000FF0000007F7F7F7F7F7F7F7F7F7F7F7FC0C0C0C0
      C0C0C0C0C0C0C0C000000000FF00007F00007F00007F0000007F7F7F7F7F7F7F
      7F7F7F7F7FC0C0C0C0C0C00000FF00007F0000000000007F7F7F7F7F7F7F7F7F
      7F7F7FC0C0C0C0C0C0C0C0C000000000FF00007F00007F00007F000000000000
      7F7F7F7F7F7F7F7F7F7F7F7FC0C0C00000FF00007F00007F0000000000007F7F
      7F7F7F7F7F7F7F7F7F7FC0C0C0C0C0C000000000FF00007F00007F00007F0000
      7F0000000000007F7F7F7F7F7F7F7F7F0000FF00007F00007F00007F00007F00
      00000000007F7F7F7F7F7FC0C0C0C0C0C0C0C0C000000000FF0000FF00007F00
      007F00007F00007F0000000000007F7F7F0000FF00007F00007F00007F00007F
      00007F00007F000000000000C0C0C0C0C0C0C0C0C0C0C0C00000C0C0C00000FF
      00007F00007F00007F00007F00007F00000000000000007F00007F00007F0000
      7F00007F00007F00007F000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000C0C0
      C00000FF0000FF00007F00007F00007F00007F00007F00007F00007F00007F00
      007F00007F00007F00007F000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      0000C0C0C0C0C0C00000FF0000FF00007F00007F00007F00007F00007F00007F
      00007F00007F00007F00007F000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C00000C0C0C0C0C0C0C0C0C00000FF0000FF00007F00007F00007F0000
      7F00007F00007F00007F00007F0000007F7F7FC0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C0C0C0C00000FF0000FF00007F00
      007F00007F00007F00007F00007F0000007F7F7F7F7F7F7F7F7FC0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000FF
      00007F00007F00007F00007F00007F00007F0000007F7F7F7F7F7F7F7F7F7F7F
      7FC0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C00000FF00007F00007F00007F00007F00007F00007F0000000000007F7F7F7F
      7F7F7F7F7FC0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C00000FF00007F00007F00007F00007F00007F00007F00007F000000
      0000007F7F7F7F7F7F7F7F7FC0C0C0C0C0C0C0C0C0C0C0C00000C0C0C0C0C0C0
      C0C0C0C0C0C00000FF00007F00007F00007F00007F00007F00007F00007F0000
      7F00007F0000007F7F7F7F7F7F7F7F7F7F7F7FC0C0C0C0C0C0C0C0C00000C0C0
      C0C0C0C0C0C0C0C0C0C00000FF00007F00007F00007F00007F0000FF0000FF00
      007F00007F00007F0000000000007F7F7F7F7F7F7F7F7FC0C0C0C0C0C0C0C0C0
      0000C0C0C0C0C0C0C0C0C00000FF00007F00007F00007F00007F0000007F7F7F
      0000FF0000FF00007F00007F00007F0000000000007F7F7F7F7F7F7F7F7F7F7F
      7FC0C0C00000C0C0C0C0C0C0C0C0C00000FF00007F00007F00007F0000007F7F
      7FC0C0C0C0C0C00000FF0000FF00007F00007F00007F0000000000007F7F7F7F
      7F7F7F7F7F7F7F7F0000C0C0C0C0C0C00000FF00007F00007F00007F00007F00
      00007F7F7FC0C0C0C0C0C0C0C0C00000FF0000FF00007F00007F00007F000000
      0000007F7F7F7F7F7F7F7F7F0000C0C0C0C0C0C00000FF00007F00007F00007F
      0000007F7F7FC0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000FF0000FF00007F0000
      7F00007F0000000000007F7F7FC0C0C00000C0C0C00000FF0000FF0000FF0000
      7F00007F000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000FF00
      00FF00007F00007F00007F000000C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C000
      00FF0000FF0000FFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C00000FF0000FF00007F00007FC0C0C0C0C0C0C0C0C00000C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C00000FF0000FFC0C0C0C0C0C0C0C0C0C0C0C00000C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      0000}
  end
  object btImprimir: TBitBtn
    Left = 404
    Top = 320
    Width = 83
    Height = 41
    Caption = 'Imprimir'
    TabOrder = 16
    OnClick = btImprimirClick
    Glyph.Data = {
      360C0000424D360C000000000000360000002800000020000000200000000100
      180000000000000C000000000000000000000000000000000000C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00101
      01000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000070707BFBF
      BF9898989E9E9E000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000050505D0D0D0B4B4B4B8B8
      B89F9F9FA2A2A29B9B9B989898020202000000C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0060606020202DBDBDBC8C8C8CDCDCDC5C5C58585
      85000000000000A4A4A4A2A2A2929292868686050505000000C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0050505000000E3E3E3D8D8D8D5D5D5BCBCBC888888888888BEBE
      BE9B9B9BA8A8A80000000101019B9B9B9696969C9C9C808080000000010101C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      030303000000EDEDEDE1E1E1E3E3E3C5C5C5848484898989BFBFBF979797DBDB
      DBA0A0A094949498989895959502020200000093939398989889898978787800
      0000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000
      FAFAFAF2F2F2EBEBEBC1C1C1838383878787CECECECCCCCCC4C4C49A9A9AD4D4
      D4A3A3A398989896969695959597979788888800000002020285858584848489
      8989777777060606000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0989898
      F5F5F5BFBFBF818181848484DBDBDBCBCBCBCBCBCBCFCFCFB6B6B6969696DDDD
      DD9F9F9F9D9D9D9D9D9D9999998585859797978282829C9C9C00000003030384
      84847676767474747A7A7A090909C0C0C0C0C0C0C0C0C0C0C0C0C0C0C09B9B9B
      808080888888DCDCDCD9D9D9CCCCCCCBCBCBD0D0D0CACACACFCFCF9D9D9DD3D3
      D3939393A2A2A29696969898989292928585859797978B8B8B82828277777702
      0202030303757575777777000000C0C0C0C0C0C0C0C0C0C0C0C0969696939393
      EBEBEB9B9B9BD4D4D4D3D3D3DCDCDCD8D8D8C9C9C9CBCBCBCACACA999999D5D5
      D5A0A0A0959595A1A1A19696968484849B9B9B8383838080807E7E7E86868672
      7272777777000000010101000000C0C0C0C0C0C0C0C0C0C0C0C0999999F8F8F8
      EDEDEDA0A0A0D2D2D2D8D8D8D3D3D3D6D6D6D6D6D6CACACAD4D4D4999999F5F5
      F59C9C9CA6A6A69393938282829898988888888787877878788787877373738E
      8E8E797979767676737373020202010101C0C0C0C0C0C0C0C0C08F8F8FFFFFFF
      E7E7E7929292E6E6E6D5D5D5D9D9D9D9D9D9CCCCCCCFCFCFF2F2F29A9A9A8A8A
      8ABCBCBCB9B9B98787879A9A9A7F7F7F86868681818190909074747488888871
      71716D6D6D7F7F7F7676765F5F5F040404C0C0C0C0C0C0C0C0C09E9E9EFAFAFA
      ECECEC949494D3D3D3DBDBDBCECECECACACAF8F8F8FBFBFBBCBCBCC1C1C1C8C8
      C87F7F7F838383C2C2C2C4C4C48383838C8C8C8A8A8A6B6B6B8B8B8B79797978
      78787B7B7B7575756A6A6A6C6C6C000000C0C0C0C0C0C0C0C0C0999796F6F6F6
      E7E6E89FA1A2C5CAC8CAD2CBF0F8F1F3FAF7B9BCC4BCBEC8C8C9D3CBCED3C9CB
      CBC8C9C7C7C4C6838284818286C1C3C4BEBDBF77777789878777787675767475
      7777767676666567727173686567050303C0C0C0C0C0C0C0C0C09C9994FBF9F8
      E8E7F0979BA0EDFDF2E8FFE9B0CAB3AEC6BCBFCADE3B405F3A3E5BC3C7DAD3D7
      D87576728B858AC1BEC7BDBFC96D737A848589C5C3C3B4B0AF7877737B7F7A6F
      747263656676777B6763686660650E090BC0C0C0C0C0C0C0C0C09C9994FCFAFA
      F1F0FA8B9196788A7DB2CCB4B6D5BA7E998F616F85B8C0E59CA0C37B7E93767A
      7BD9DAD6D2CCD1C0B8C2BEBDC6BDBDC3020001868182797672C0BFBBB9BDB877
      7C7A797D7E6364686D676C6C6769040000C0C0C0C0C0C0C0C0C09B97969D9B9B
      F1F1F7DFE4E7B4C2B77A8D7C6C8270AEC3BBA3B0C079809B787C95DADDECD9DB
      DCD1D0CCD1CCCBD8CDCF0F03030B0000B7AFAFBAB6B5060705838886808583BB
      C0BFAAACAC666666666464686666050302C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      9E9D9F909292F4FCF5CFDDD2B9C8C07684827D868F626A77C0C3D1DADBE5D5D4
      D6DFDCD80B07020D0100C8AEA8FDE3DDF1E1DBB7B2AF000100BCC2C1C1C7C67F
      8483898B8BC0C1BFB7B5B4676662020000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0969A958C918FF8FEFDD2DADAB9BEBF838889777B7C8281830200
      01040000B2B0A6EDDDD0FFDED0572D20442B21E6DCD5CBCCCA000100787D7EBC
      C1C0ACADAB8B8A86848680C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0939399999A9EF7FBF6D6DBD2B6B7B3918F8E7671
      72BCB8B7EFEDE34030205C311EFFE4D2FFE8D9F6E7DEE5E2DD0002007D828182
      84848C8D8BC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C09A9A949A9C90FFFFF8D5D2CDC7C2
      C3888384E1DFD7F7E8D8FFDCC7FFFBE54D2917472F23F1E6DEC0BBB8060403C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C09A998F9F9C97FAF5
      F78A8789E9E6E2F0E4D85E3925532710FFF0DEFFEADBFFECE1FDF0E8C8BFBB05
      0000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C09D9A
      9C9C9B9F848183F7ECE8FFECDCFFE9D5FFF7E55332224B2E20FFEEE3F5E5DECC
      C3C0050303C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C089878DF0EAEBFFF7EB4C33234B2D1CFFF3E3FFF8EAFFF4E6FFF1E9FD
      F2EEC1BFBF000006C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0878388FFFEF7FFFAEEFFF5E9FFFFF2FFEFE14E2E21463129F9
      EEEAF6F4F4B6B6BC04060E000006C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C083827EFCF6EFFFFBF2452C22492B20FFFAF0FFF8F1FF
      F6F2F9F7F7EEEFF38083887F8287C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C08B8884FFF6F4FFF9F6FFF4EFFFFDF8FFF4EEFF
      F9F4878584888A8AC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0847F80FDF7F8FFFAFAFAF2F29089868D
      8885C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C07C7F847F828784878BC0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0}
  end
  object dsp: TDataSetProvider
    DataSet = scds
    Options = [poAllowCommandText]
    Left = 168
    Top = 276
  end
  object scds: TSQLDataSet
    CommandText = 'select * from GUIAS '#13#10'where ID_GUIAS =:num'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'num'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 128
    Top = 276
    object scdsID_GUIAS: TIntegerField
      FieldName = 'ID_GUIAS'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object scdsREGISTRO_ANS: TStringField
      FieldName = 'REGISTRO_ANS'
      ProviderFlags = [pfInUpdate]
      Size = 6
    end
    object scdsNUMERO_GUIA: TStringField
      FieldName = 'NUMERO_GUIA'
      ProviderFlags = [pfInUpdate]
    end
    object scdsDATA_EMISSAO: TDateField
      FieldName = 'DATA_EMISSAO'
      ProviderFlags = [pfInUpdate]
    end
    object scdsNUMERO_CARTAO_BENEFICIARIO: TStringField
      FieldName = 'NUMERO_CARTAO_BENEFICIARIO'
      ProviderFlags = [pfInUpdate]
    end
    object scdsNOME_PLANO: TStringField
      FieldName = 'NOME_PLANO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object scdsVALIDADE_CARTEIRA: TDateField
      FieldName = 'VALIDADE_CARTEIRA'
      ProviderFlags = [pfInUpdate]
    end
    object scdsNOME_BENEFICIARIO: TStringField
      FieldName = 'NOME_BENEFICIARIO'
      ProviderFlags = [pfInUpdate]
      Size = 70
    end
    object scdsNUMERO_CARTAO_NACIONAL: TStringField
      FieldName = 'NUMERO_CARTAO_NACIONAL'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object scdsCODIGO_OPERADORA: TStringField
      FieldName = 'CODIGO_OPERADORA'
      ProviderFlags = [pfInUpdate]
      Size = 14
    end
    object scdsNOME_CONTRATADO: TStringField
      FieldName = 'NOME_CONTRATADO'
      ProviderFlags = [pfInUpdate]
      Size = 70
    end
    object scdsCODIGO_CNES: TStringField
      FieldName = 'CODIGO_CNES'
      ProviderFlags = [pfInUpdate]
      Size = 7
    end
    object scdsLOGRADOURO: TStringField
      FieldName = 'LOGRADOURO'
      ProviderFlags = [pfInUpdate]
      Size = 3
    end
    object scdsNOME_LOGRADOURO: TStringField
      FieldName = 'NOME_LOGRADOURO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object scdsNUMERO: TStringField
      FieldName = 'NUMERO'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object scdsCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object scdsMUNICIPIO: TStringField
      FieldName = 'MUNICIPIO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object scdsSIGLA: TStringField
      FieldName = 'SIGLA'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object scdsCODIGO_MUNICIPIO: TStringField
      FieldName = 'CODIGO_MUNICIPIO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object scdsCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
    object scdsNOME_EXECUTANTE: TStringField
      FieldName = 'NOME_EXECUTANTE'
      ProviderFlags = [pfInUpdate]
      Size = 70
    end
    object scdsSIGLA_CONSELHO: TStringField
      FieldName = 'SIGLA_CONSELHO'
      ProviderFlags = [pfInUpdate]
      Size = 7
    end
    object scdsNUMERO_PROFISSIONAL: TStringField
      FieldName = 'NUMERO_PROFISSIONAL'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object scdsSIGLA_UNIDADE: TStringField
      FieldName = 'SIGLA_UNIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object scdsCODIGO_ESPECIALIDADE: TStringField
      FieldName = 'CODIGO_ESPECIALIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object scdsCODIGO_DOENCA: TStringField
      FieldName = 'CODIGO_DOENCA'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object scdsTEMPO_DOENCA: TStringField
      FieldName = 'TEMPO_DOENCA'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object scdsACIDENTE_TRABALHO: TIntegerField
      FieldName = 'ACIDENTE_TRABALHO'
      ProviderFlags = [pfInUpdate]
    end
    object scdsCODIGO_CID10_1: TStringField
      FieldName = 'CODIGO_CID10_1'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object scdsCODIGO_CID10_2: TStringField
      FieldName = 'CODIGO_CID10_2'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object scdsCODIGO_CID10_3: TStringField
      FieldName = 'CODIGO_CID10_3'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object scdsCODIGO_CID10_4: TStringField
      FieldName = 'CODIGO_CID10_4'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object scdsDATA_ATENDIMENTO: TDateField
      FieldName = 'DATA_ATENDIMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object scdsCODIGO_PROCEDIMENTOS: TStringField
      FieldName = 'CODIGO_PROCEDIMENTOS'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object scdsCODIGO_PROCEDIMENTOS_REALIZADO: TStringField
      FieldName = 'CODIGO_PROCEDIMENTOS_REALIZADO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object scdsTIPO_CONSULTA: TStringField
      FieldName = 'TIPO_CONSULTA'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object scdsTIPO_SAIDA: TIntegerField
      FieldName = 'TIPO_SAIDA'
      ProviderFlags = [pfInUpdate]
    end
    object scdsOBSERVACAO: TStringField
      FieldName = 'OBSERVACAO'
      ProviderFlags = [pfInUpdate]
      Size = 240
    end
    object scdsCODIGO_PRESTADORA: TStringField
      FieldName = 'CODIGO_PRESTADORA'
      ProviderFlags = [pfInUpdate]
      Size = 14
    end
    object scdsCARATER_SOLICITACAO: TStringField
      FieldName = 'CARATER_SOLICITACAO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object scdsNUMERO_CARTEIRA: TStringField
      FieldName = 'NUMERO_CARTEIRA'
      ProviderFlags = [pfInUpdate]
    end
    object scdsTIPO_GUIA: TStringField
      FieldName = 'TIPO_GUIA'
      ProviderFlags = [pfInUpdate]
    end
    object scdsDATA_AUT: TDateField
      FieldName = 'DATA_AUT'
      ProviderFlags = [pfInUpdate]
    end
    object scdsSENHA: TStringField
      FieldName = 'SENHA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object scdsDATA_VAL_SENHA: TDateField
      FieldName = 'DATA_VAL_SENHA'
      ProviderFlags = [pfInUpdate]
    end
    object scdsNAOPERADORA: TStringField
      FieldName = 'NAOPERADORA'
      ProviderFlags = [pfInUpdate]
      Size = 14
    end
    object scdsNOME_PRESTADOR: TStringField
      FieldName = 'NOME_PRESTADOR'
      ProviderFlags = [pfInUpdate]
      Size = 70
    end
    object scdsNOME_EXECUTANTE1: TStringField
      FieldName = 'NOME_EXECUTANTE1'
      ProviderFlags = [pfInUpdate]
      Size = 70
    end
    object scdsSIGLA_CONSELHO1: TStringField
      FieldName = 'SIGLA_CONSELHO1'
      ProviderFlags = [pfInUpdate]
      Size = 7
    end
    object scdsNUMERO_PROFISSIONAL1: TStringField
      FieldName = 'NUMERO_PROFISSIONAL1'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object scdsSIGLA_UNIDADE1: TStringField
      FieldName = 'SIGLA_UNIDADE1'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object scdsCODIGO_ESPECIALIDADE1: TStringField
      FieldName = 'CODIGO_ESPECIALIDADE1'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object scdsCODIGO_CNES1: TStringField
      FieldName = 'CODIGO_CNES1'
      ProviderFlags = [pfInUpdate]
      Size = 7
    end
    object scdsLOGRADOURO1: TStringField
      FieldName = 'LOGRADOURO1'
      ProviderFlags = [pfInUpdate]
      Size = 3
    end
    object scdsNOME_LOGRADOURO1: TStringField
      FieldName = 'NOME_LOGRADOURO1'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object scdsNUMERO1: TStringField
      FieldName = 'NUMERO1'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object scdsCOMPLEMENTO1: TStringField
      FieldName = 'COMPLEMENTO1'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object scdsMUNICIPIO1: TStringField
      FieldName = 'MUNICIPIO1'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object scdsSIGLA1: TStringField
      FieldName = 'SIGLA1'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object scdsCODIGO_MUNICIPIO1: TStringField
      FieldName = 'CODIGO_MUNICIPIO1'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object scdsCEP1: TStringField
      FieldName = 'CEP1'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
  end
  object cds: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'num'
        ParamType = ptInput
      end>
    ProviderName = 'dsp'
    Left = 216
    Top = 276
    object cdsID_GUIAS: TIntegerField
      FieldName = 'ID_GUIAS'
      Required = True
    end
    object cdsREGISTRO_ANS: TStringField
      FieldName = 'REGISTRO_ANS'
      Size = 6
    end
    object cdsNUMERO_GUIA: TStringField
      FieldName = 'NUMERO_GUIA'
    end
    object cdsDATA_EMISSAO: TDateField
      FieldName = 'DATA_EMISSAO'
    end
    object cdsNUMERO_CARTAO_BENEFICIARIO: TStringField
      FieldName = 'NUMERO_CARTAO_BENEFICIARIO'
    end
    object cdsNOME_PLANO: TStringField
      FieldName = 'NOME_PLANO'
      Size = 40
    end
    object cdsVALIDADE_CARTEIRA: TDateField
      FieldName = 'VALIDADE_CARTEIRA'
    end
    object cdsNOME_BENEFICIARIO: TStringField
      FieldName = 'NOME_BENEFICIARIO'
      Size = 70
    end
    object cdsNUMERO_CARTAO_NACIONAL: TStringField
      FieldName = 'NUMERO_CARTAO_NACIONAL'
      Size = 15
    end
    object cdsCODIGO_OPERADORA: TStringField
      FieldName = 'CODIGO_OPERADORA'
      Size = 14
    end
    object cdsNOME_CONTRATADO: TStringField
      FieldName = 'NOME_CONTRATADO'
      Size = 70
    end
    object cdsCODIGO_CNES: TStringField
      FieldName = 'CODIGO_CNES'
      Size = 7
    end
    object cdsLOGRADOURO: TStringField
      FieldName = 'LOGRADOURO'
      Size = 3
    end
    object cdsNOME_LOGRADOURO: TStringField
      FieldName = 'NOME_LOGRADOURO'
      Size = 40
    end
    object cdsNUMERO: TStringField
      FieldName = 'NUMERO'
      Size = 5
    end
    object cdsCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 15
    end
    object cdsMUNICIPIO: TStringField
      FieldName = 'MUNICIPIO'
      Size = 40
    end
    object cdsSIGLA: TStringField
      FieldName = 'SIGLA'
      Size = 2
    end
    object cdsCODIGO_MUNICIPIO: TStringField
      FieldName = 'CODIGO_MUNICIPIO'
      Size = 10
    end
    object cdsCEP: TStringField
      FieldName = 'CEP'
      Size = 8
    end
    object cdsNOME_EXECUTANTE: TStringField
      FieldName = 'NOME_EXECUTANTE'
      Size = 70
    end
    object cdsSIGLA_CONSELHO: TStringField
      FieldName = 'SIGLA_CONSELHO'
      Size = 7
    end
    object cdsNUMERO_PROFISSIONAL: TStringField
      FieldName = 'NUMERO_PROFISSIONAL'
      Size = 15
    end
    object cdsSIGLA_UNIDADE: TStringField
      FieldName = 'SIGLA_UNIDADE'
      Size = 2
    end
    object cdsCODIGO_ESPECIALIDADE: TStringField
      FieldName = 'CODIGO_ESPECIALIDADE'
      Size = 5
    end
    object cdsCODIGO_DOENCA: TStringField
      FieldName = 'CODIGO_DOENCA'
      Size = 1
    end
    object cdsTEMPO_DOENCA: TStringField
      FieldName = 'TEMPO_DOENCA'
      Size = 1
    end
    object cdsACIDENTE_TRABALHO: TIntegerField
      FieldName = 'ACIDENTE_TRABALHO'
    end
    object cdsCODIGO_CID10_1: TStringField
      FieldName = 'CODIGO_CID10_1'
      Size = 5
    end
    object cdsCODIGO_CID10_2: TStringField
      FieldName = 'CODIGO_CID10_2'
      Size = 5
    end
    object cdsCODIGO_CID10_3: TStringField
      FieldName = 'CODIGO_CID10_3'
      Size = 5
    end
    object cdsCODIGO_CID10_4: TStringField
      FieldName = 'CODIGO_CID10_4'
      Size = 5
    end
    object cdsDATA_ATENDIMENTO: TDateField
      FieldName = 'DATA_ATENDIMENTO'
    end
    object cdsCODIGO_PROCEDIMENTOS: TStringField
      FieldName = 'CODIGO_PROCEDIMENTOS'
      Size = 2
    end
    object cdsCODIGO_PROCEDIMENTOS_REALIZADO: TStringField
      FieldName = 'CODIGO_PROCEDIMENTOS_REALIZADO'
      Size = 10
    end
    object cdsTIPO_CONSULTA: TStringField
      FieldName = 'TIPO_CONSULTA'
      Size = 1
    end
    object cdsTIPO_SAIDA: TIntegerField
      FieldName = 'TIPO_SAIDA'
    end
    object cdsOBSERVACAO: TStringField
      FieldName = 'OBSERVACAO'
      Size = 240
    end
    object cdsCODIGO_PRESTADORA: TStringField
      FieldName = 'CODIGO_PRESTADORA'
      Size = 14
    end
    object cdsCARATER_SOLICITACAO: TStringField
      FieldName = 'CARATER_SOLICITACAO'
      Size = 50
    end
    object cdsNUMERO_CARTEIRA: TStringField
      FieldName = 'NUMERO_CARTEIRA'
    end
    object cdsTIPO_GUIA: TStringField
      FieldName = 'TIPO_GUIA'
    end
    object cdsDATA_AUT: TDateField
      FieldName = 'DATA_AUT'
    end
    object cdsSENHA: TStringField
      FieldName = 'SENHA'
      Size = 10
    end
    object cdsDATA_VAL_SENHA: TDateField
      FieldName = 'DATA_VAL_SENHA'
    end
    object cdsNAOPERADORA: TStringField
      FieldName = 'NAOPERADORA'
      Size = 14
    end
    object cdsNOME_PRESTADOR: TStringField
      FieldName = 'NOME_PRESTADOR'
      Size = 70
    end
    object cdsNOME_EXECUTANTE1: TStringField
      FieldName = 'NOME_EXECUTANTE1'
      Size = 70
    end
    object cdsSIGLA_CONSELHO1: TStringField
      FieldName = 'SIGLA_CONSELHO1'
      Size = 7
    end
    object cdsNUMERO_PROFISSIONAL1: TStringField
      FieldName = 'NUMERO_PROFISSIONAL1'
      Size = 15
    end
    object cdsSIGLA_UNIDADE1: TStringField
      FieldName = 'SIGLA_UNIDADE1'
      Size = 2
    end
    object cdsCODIGO_ESPECIALIDADE1: TStringField
      FieldName = 'CODIGO_ESPECIALIDADE1'
      Size = 5
    end
    object cdsCODIGO_CNES1: TStringField
      FieldName = 'CODIGO_CNES1'
      Size = 7
    end
    object cdsLOGRADOURO1: TStringField
      FieldName = 'LOGRADOURO1'
      Size = 3
    end
    object cdsNOME_LOGRADOURO1: TStringField
      FieldName = 'NOME_LOGRADOURO1'
      Size = 40
    end
    object cdsNUMERO1: TStringField
      FieldName = 'NUMERO1'
      Size = 5
    end
    object cdsCOMPLEMENTO1: TStringField
      FieldName = 'COMPLEMENTO1'
      Size = 15
    end
    object cdsMUNICIPIO1: TStringField
      FieldName = 'MUNICIPIO1'
      Size = 40
    end
    object cdsSIGLA1: TStringField
      FieldName = 'SIGLA1'
      Size = 2
    end
    object cdsCODIGO_MUNICIPIO1: TStringField
      FieldName = 'CODIGO_MUNICIPIO1'
      Size = 10
    end
    object cdsCEP1: TStringField
      FieldName = 'CEP1'
      Size = 8
    end
  end
  object DtSrc: TDataSource
    DataSet = cds
    OnStateChange = DtSrcStateChange
    Left = 272
    Top = 276
  end
  object procforn: TSQLClientDataSet
    CommandText = 
      'select CODFORNECEDOR,NOMEFORNECEDOR from FORNECEDOR where NOMEFO' +
      'RNECEDOR LIKE :NOME'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'NOME'
        ParamType = ptInput
      end>
    DBConnection = DM.sqlsisAdimin
    Left = 264
    Top = 50
    object procfornNOMEFORNECEDOR: TStringField
      FieldName = 'NOMEFORNECEDOR'
      Required = True
      Size = 50
    end
    object procfornCODFORNECEDOR: TIntegerField
      FieldName = 'CODFORNECEDOR'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
  end
  object cdsBuscaForn: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'prcod'
        ParamType = ptInput
      end>
    ProviderName = 'dspBuscaForn'
    Left = 208
    Top = 50
    object cdsBuscaFornCODFORNECEDOR: TIntegerField
      FieldName = 'CODFORNECEDOR'
      Required = True
    end
    object cdsBuscaFornNOMEFORNECEDOR: TStringField
      FieldName = 'NOMEFORNECEDOR'
      Required = True
      Size = 50
    end
    object cdsBuscaFornCNPJ: TStringField
      FieldName = 'CNPJ'
      Size = 18
    end
    object cdsBuscaFornCNES: TStringField
      FieldName = 'CNES'
      Size = 24
    end
    object cdsBuscaFornLOGRADOURO: TStringField
      FieldName = 'LOGRADOURO'
      Size = 50
    end
    object cdsBuscaFornCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 30
    end
    object cdsBuscaFornCEP_CONTRATADO: TStringField
      FieldName = 'CEP_CONTRATADO'
      ReadOnly = True
      FixedChar = True
      Size = 254
    end
    object cdsBuscaFornNUMERO: TStringField
      FieldName = 'NUMERO'
      ReadOnly = True
      Size = 30
    end
    object cdsBuscaFornSIGLA: TStringField
      FieldName = 'SIGLA'
      ReadOnly = True
      FixedChar = True
      Size = 2
    end
    object cdsBuscaFornCD_TIPO_LOGRADOURO: TStringField
      FieldName = 'CD_TIPO_LOGRADOURO'
      ReadOnly = True
      FixedChar = True
      Size = 3
    end
    object cdsBuscaFornDADOSADICIONAIS: TStringField
      FieldName = 'DADOSADICIONAIS'
      ReadOnly = True
      FixedChar = True
      Size = 254
    end
    object cdsBuscaFornNM_MUNICIPIO: TStringField
      FieldName = 'NM_MUNICIPIO'
      ReadOnly = True
      Size = 40
    end
    object cdsBuscaFornCD_IBGE: TStringField
      FieldName = 'CD_IBGE'
      ReadOnly = True
      Size = 10
    end
    object cdsBuscaFornCD_UF: TStringField
      FieldName = 'CD_UF'
      ReadOnly = True
      FixedChar = True
      Size = 2
    end
    object cdsBuscaFornNOME_REPRFOR: TStringField
      FieldName = 'NOME_REPRFOR'
      ReadOnly = True
      Size = 60
    end
    object cdsBuscaFornFUNCAO: TStringField
      FieldName = 'FUNCAO'
      ReadOnly = True
      Size = 60
    end
    object cdsBuscaFornCOMPLEMENTO_1: TStringField
      FieldName = 'COMPLEMENTO_1'
      ReadOnly = True
      Size = 30
    end
    object cdsBuscaFornUF: TStringField
      FieldName = 'UF'
      ReadOnly = True
      Size = 2
    end
    object cdsBuscaFornCEP: TStringField
      FieldName = 'CEP'
      ReadOnly = True
      Size = 10
    end
  end
  object dspBuscaForn: TDataSetProvider
    DataSet = scdsBuscaForn
    Left = 176
    Top = 50
  end
  object scdsBuscaForn: TSQLDataSet
    CommandText = 
      'select '#13#10'forn.CODFORNECEDOR ,'#13#10'forn.NOMEFORNECEDOR,'#13#10'forn.CNPJ,'#13 +
      #10'forn.INSCESTADUAL as CNES,'#13#10'ende.LOGRADOURO,'#13#10'ende.COMPLEMENTO,' +
      #13#10'udf_digits(ende.CEP) as CEP_CONTRATADO,'#13#10'ende.E_MAIL as NUMERO' +
      ','#13#10'ende.UF as SIGLA,'#13#10'logr.CD_TIPO_LOGRADOURO,'#13#10'udf_digits(ende.' +
      'DADOSADICIONAIS) as DADOSADICIONAIS,'#13#10'ibge.NM_MUNICIPIO,'#13#10'udf_di' +
      'gits(ibge.CD_IBGE) as CD_IBGE ,'#13#10'ibge.CD_UF, '#13#10'repr. NOME_REPRFO' +
      'R,'#13#10'repr.FUNCAO,'#13#10'repr.COMPLEMENTO,'#13#10'repr.UF,'#13#10'repr.CEP'#13#10'from FO' +
      'RNECEDOR forn '#13#10'inner join ENDERECOFORNECEDOR ende on ende.CODFO' +
      'RNECEDOR = forn.CODFORNECEDOR '#13#10'left outer join TB_IBGE ibge on ' +
      'udf_collatebr(ibge.NM_LOCALIDADE) = udf_collatebr(ende.CIDADE)'#13#10 +
      'inner join REPR_FORNECEDOR repr on repr.COD_FORNECEDOR = forn.CO' +
      'DFORNECEDOR'#13#10'left outer join TB_TIPO_LOGRADOURO logr on logr.DS_' +
      'TIPO_LOGRADOURO = ende.BAIRRO'#13#10'where forn.CODFORNECEDOR = :prcod' +
      #13#10#13#10
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'prcod'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 136
    Top = 50
    object scdsBuscaFornCODFORNECEDOR: TIntegerField
      FieldName = 'CODFORNECEDOR'
      Required = True
    end
    object scdsBuscaFornNOMEFORNECEDOR: TStringField
      FieldName = 'NOMEFORNECEDOR'
      Required = True
      Size = 50
    end
    object scdsBuscaFornCNPJ: TStringField
      FieldName = 'CNPJ'
      Size = 18
    end
    object scdsBuscaFornCNES: TStringField
      FieldName = 'CNES'
      Size = 24
    end
    object scdsBuscaFornLOGRADOURO: TStringField
      FieldName = 'LOGRADOURO'
      Size = 50
    end
    object scdsBuscaFornCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 30
    end
    object scdsBuscaFornCEP_CONTRATADO: TStringField
      FieldName = 'CEP_CONTRATADO'
      ReadOnly = True
      FixedChar = True
      Size = 254
    end
    object scdsBuscaFornNUMERO: TStringField
      FieldName = 'NUMERO'
      ReadOnly = True
      Size = 30
    end
    object scdsBuscaFornSIGLA: TStringField
      FieldName = 'SIGLA'
      ReadOnly = True
      FixedChar = True
      Size = 2
    end
    object scdsBuscaFornCD_TIPO_LOGRADOURO: TStringField
      FieldName = 'CD_TIPO_LOGRADOURO'
      ReadOnly = True
      FixedChar = True
      Size = 3
    end
    object scdsBuscaFornDADOSADICIONAIS: TStringField
      FieldName = 'DADOSADICIONAIS'
      ReadOnly = True
      FixedChar = True
      Size = 254
    end
    object scdsBuscaFornNM_MUNICIPIO: TStringField
      FieldName = 'NM_MUNICIPIO'
      ReadOnly = True
      Size = 40
    end
    object scdsBuscaFornCD_IBGE: TStringField
      FieldName = 'CD_IBGE'
      ReadOnly = True
      Size = 10
    end
    object scdsBuscaFornCD_UF: TStringField
      FieldName = 'CD_UF'
      ReadOnly = True
      FixedChar = True
      Size = 2
    end
    object scdsBuscaFornNOME_REPRFOR: TStringField
      FieldName = 'NOME_REPRFOR'
      ReadOnly = True
      Size = 60
    end
    object scdsBuscaFornFUNCAO: TStringField
      FieldName = 'FUNCAO'
      ReadOnly = True
      Size = 60
    end
    object scdsBuscaFornCOMPLEMENTO_1: TStringField
      FieldName = 'COMPLEMENTO_1'
      ReadOnly = True
      Size = 30
    end
    object scdsBuscaFornUF: TStringField
      FieldName = 'UF'
      ReadOnly = True
      Size = 2
    end
    object scdsBuscaFornCEP: TStringField
      FieldName = 'CEP'
      ReadOnly = True
      Size = 10
    end
  end
  object scdsRepr: TSQLDataSet
    CommandText = 
      'select REPR.NOME_REPRFOR, '#13#10'          REPR.FUNCAO, '#13#10'          R' +
      'EPR.UF,'#13#10'          REPR.NUMERO,'#13#10'          REPR.COMPLEMENTO,'#13#10'  ' +
      '        CBO.CD_CBO_SAUDE'#13#10'from REPR_FORNECEDOR REPR'#13#10'INNER JOIN ' +
      ' TB_CBO_SAUDE CBO ON CBO.CD_CBO_SAUDE = '#13#10'REPR.FUNCAO'#13#10' where '#13#10 +
      'REPR.COD_FORNECEDOR = :PRCOD'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftUnknown
        Name = 'PRCOD'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 504
    Top = 50
    object scdsReprNOME_REPRFOR: TStringField
      FieldName = 'NOME_REPRFOR'
      Size = 60
    end
    object scdsReprFUNCAO: TStringField
      FieldName = 'FUNCAO'
      Size = 60
    end
    object scdsReprUF: TStringField
      FieldName = 'UF'
      Size = 2
    end
    object scdsReprCD_CBO_SAUDE: TStringField
      FieldName = 'CD_CBO_SAUDE'
      Required = True
      Size = 12
    end
    object scdsReprNUMERO: TStringField
      FieldName = 'NUMERO'
      Size = 10
    end
    object scdsReprCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 30
    end
  end
  object cdsRepr: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'PRCOD'
        ParamType = ptInput
      end>
    ProviderName = 'dspRepr'
    Left = 584
    Top = 50
    object cdsReprNOME_REPRFOR: TStringField
      FieldName = 'NOME_REPRFOR'
      Size = 60
    end
    object cdsReprFUNCAO: TStringField
      FieldName = 'FUNCAO'
      Size = 60
    end
    object cdsReprUF: TStringField
      FieldName = 'UF'
      Size = 2
    end
    object cdsReprCD_CBO_SAUDE: TStringField
      FieldName = 'CD_CBO_SAUDE'
      Required = True
      Size = 12
    end
    object cdsReprNUMERO: TStringField
      FieldName = 'NUMERO'
      Size = 10
    end
    object cdsReprCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 30
    end
  end
  object dspRepr: TDataSetProvider
    DataSet = scdsRepr
    Left = 544
    Top = 50
  end
  object procforn2: TSQLClientDataSet
    CommandText = 
      'select CODFORNECEDOR,NOMEFORNECEDOR, CNPJ from FORNECEDOR where ' +
      'NOMEFORNECEDOR LIKE :NOME'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'NOME'
        ParamType = ptInput
      end>
    DBConnection = DM.sqlsisAdimin
    Left = 264
    Top = 130
    object procforn2CODFORNECEDOR: TIntegerField
      FieldName = 'CODFORNECEDOR'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object procforn2NOMEFORNECEDOR: TStringField
      FieldName = 'NOMEFORNECEDOR'
      Required = True
      Size = 50
    end
    object procforn2CNPJ: TStringField
      FieldName = 'CNPJ'
      Size = 18
    end
  end
  object cdsBuscaForn2: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'prcod'
        ParamType = ptInput
      end>
    ProviderName = 'dspBuscaForn'
    Left = 208
    Top = 130
    object cdsBuscaForn2CODFORNECEDOR: TIntegerField
      FieldName = 'CODFORNECEDOR'
      Required = True
    end
    object cdsBuscaForn2NOMEFORNECEDOR: TStringField
      FieldName = 'NOMEFORNECEDOR'
      Required = True
      Size = 50
    end
    object cdsBuscaForn2CNPJ: TStringField
      FieldName = 'CNPJ'
      Size = 18
    end
    object cdsBuscaForn2CNES: TStringField
      FieldName = 'CNES'
      Size = 24
    end
    object cdsBuscaForn2LOGRADOURO: TStringField
      FieldName = 'LOGRADOURO'
      Size = 50
    end
    object cdsBuscaForn2COMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 30
    end
    object cdsBuscaForn2CEP_CONTRATADO: TStringField
      FieldName = 'CEP_CONTRATADO'
      ReadOnly = True
      FixedChar = True
      Size = 254
    end
    object cdsBuscaForn2NUMERO: TStringField
      FieldName = 'NUMERO'
      ReadOnly = True
      Size = 30
    end
    object cdsBuscaForn2SIGLA: TStringField
      FieldName = 'SIGLA'
      ReadOnly = True
      FixedChar = True
      Size = 2
    end
    object cdsBuscaForn2CD_TIPO_LOGRADOURO: TStringField
      FieldName = 'CD_TIPO_LOGRADOURO'
      ReadOnly = True
      FixedChar = True
      Size = 3
    end
    object cdsBuscaForn2DADOSADICIONAIS: TStringField
      FieldName = 'DADOSADICIONAIS'
      ReadOnly = True
      FixedChar = True
      Size = 254
    end
    object cdsBuscaForn2NM_MUNICIPIO: TStringField
      FieldName = 'NM_MUNICIPIO'
      ReadOnly = True
      Size = 40
    end
    object cdsBuscaForn2CD_IBGE: TStringField
      FieldName = 'CD_IBGE'
      ReadOnly = True
      Size = 10
    end
    object cdsBuscaForn2CD_UF: TStringField
      FieldName = 'CD_UF'
      ReadOnly = True
      FixedChar = True
      Size = 2
    end
    object cdsBuscaForn2NOME_REPRFOR: TStringField
      FieldName = 'NOME_REPRFOR'
      ReadOnly = True
      Size = 60
    end
    object cdsBuscaForn2FUNCAO: TStringField
      FieldName = 'FUNCAO'
      ReadOnly = True
      Size = 60
    end
    object cdsBuscaForn2COMPLEMENTO_1: TStringField
      FieldName = 'COMPLEMENTO_1'
      ReadOnly = True
      Size = 30
    end
    object cdsBuscaForn2UF: TStringField
      FieldName = 'UF'
      ReadOnly = True
      Size = 2
    end
    object cdsBuscaForn2CEP: TStringField
      FieldName = 'CEP'
      ReadOnly = True
      Size = 10
    end
  end
  object dspBuscaForn2: TDataSetProvider
    DataSet = scdsBuscaForn2
    Left = 176
    Top = 130
  end
  object scdsBuscaForn2: TSQLDataSet
    CommandText = 
      'select '#13#10'forn.CODFORNECEDOR ,'#13#10'forn.NOMEFORNECEDOR,'#13#10'forn.CNPJ,'#13 +
      #10'forn.INSCESTADUAL as CNES,'#13#10'ende.LOGRADOURO,'#13#10'ende.COMPLEMENTO,' +
      #13#10'udf_digits(ende.CEP) as CEP_CONTRATADO,'#13#10'ende.E_MAIL as NUMERO' +
      ','#13#10'ende.UF as SIGLA,'#13#10'logr.CD_TIPO_LOGRADOURO,'#13#10'udf_digits(ende.' +
      'DADOSADICIONAIS) as DADOSADICIONAIS,'#13#10'ibge.NM_MUNICIPIO,'#13#10'ibge.C' +
      'D_IBGE,'#13#10'ibge.CD_UF, '#13#10'repr. NOME_REPRFOR,'#13#10'repr.FUNCAO,'#13#10'repr.C' +
      'OMPLEMENTO,'#13#10'repr.UF,'#13#10'repr.CEP'#13#10'from FORNECEDOR forn '#13#10'inner jo' +
      'in ENDERECOFORNECEDOR ende on ende.CODFORNECEDOR = forn.CODFORNE' +
      'CEDOR '#13#10'left outer join TB_IBGE ibge on udf_collatebr(ibge.NM_LO' +
      'CALIDADE) = udf_collatebr(ende.CIDADE)'#13#10'inner join REPR_FORNECED' +
      'OR repr on repr.COD_FORNECEDOR = forn.CODFORNECEDOR'#13#10'left outer ' +
      'join TB_TIPO_LOGRADOURO logr on logr.DS_TIPO_LOGRADOURO = ende.B' +
      'AIRRO'#13#10'where forn.CODFORNECEDOR = :prcod'#13#10#13#10
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'prcod'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 136
    Top = 130
    object scdsBuscaForn2CODFORNECEDOR: TIntegerField
      FieldName = 'CODFORNECEDOR'
      Required = True
    end
    object scdsBuscaForn2NOMEFORNECEDOR: TStringField
      FieldName = 'NOMEFORNECEDOR'
      Required = True
      Size = 50
    end
    object scdsBuscaForn2CNPJ: TStringField
      FieldName = 'CNPJ'
      Size = 18
    end
    object scdsBuscaForn2CNES: TStringField
      FieldName = 'CNES'
      Size = 24
    end
    object scdsBuscaForn2LOGRADOURO: TStringField
      FieldName = 'LOGRADOURO'
      Size = 50
    end
    object scdsBuscaForn2COMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 30
    end
    object scdsBuscaForn2CEP_CONTRATADO: TStringField
      FieldName = 'CEP_CONTRATADO'
      ReadOnly = True
      FixedChar = True
      Size = 254
    end
    object scdsBuscaForn2NUMERO: TStringField
      FieldName = 'NUMERO'
      ReadOnly = True
      Size = 30
    end
    object scdsBuscaForn2SIGLA: TStringField
      FieldName = 'SIGLA'
      ReadOnly = True
      FixedChar = True
      Size = 2
    end
    object scdsBuscaForn2CD_TIPO_LOGRADOURO: TStringField
      FieldName = 'CD_TIPO_LOGRADOURO'
      ReadOnly = True
      FixedChar = True
      Size = 3
    end
    object scdsBuscaForn2DADOSADICIONAIS: TStringField
      FieldName = 'DADOSADICIONAIS'
      ReadOnly = True
      FixedChar = True
      Size = 254
    end
    object scdsBuscaForn2NM_MUNICIPIO: TStringField
      FieldName = 'NM_MUNICIPIO'
      ReadOnly = True
      Size = 40
    end
    object scdsBuscaForn2CD_IBGE: TStringField
      FieldName = 'CD_IBGE'
      ReadOnly = True
      Size = 10
    end
    object scdsBuscaForn2CD_UF: TStringField
      FieldName = 'CD_UF'
      ReadOnly = True
      FixedChar = True
      Size = 2
    end
    object scdsBuscaForn2NOME_REPRFOR: TStringField
      FieldName = 'NOME_REPRFOR'
      ReadOnly = True
      Size = 60
    end
    object scdsBuscaForn2FUNCAO: TStringField
      FieldName = 'FUNCAO'
      ReadOnly = True
      Size = 60
    end
    object scdsBuscaForn2COMPLEMENTO_1: TStringField
      FieldName = 'COMPLEMENTO_1'
      ReadOnly = True
      Size = 30
    end
    object scdsBuscaForn2UF: TStringField
      FieldName = 'UF'
      ReadOnly = True
      Size = 2
    end
    object scdsBuscaForn2CEP: TStringField
      FieldName = 'CEP'
      ReadOnly = True
      Size = 10
    end
  end
  object cdsRepr1: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'PRCOD'
        ParamType = ptInput
      end>
    ProviderName = 'dspRepr'
    Left = 552
    Top = 130
    object cdsRepr1NOME_REPRFOR: TStringField
      FieldName = 'NOME_REPRFOR'
      Size = 60
    end
    object cdsRepr1FUNCAO: TStringField
      FieldName = 'FUNCAO'
      Size = 60
    end
    object cdsRepr1UF: TStringField
      FieldName = 'UF'
      Size = 2
    end
    object cdsRepr1CD_CBO_SAUDE: TStringField
      FieldName = 'CD_CBO_SAUDE'
      Required = True
      Size = 12
    end
    object cdsRepr1NUMERO: TStringField
      FieldName = 'NUMERO'
      Size = 10
    end
    object cdsRepr1COMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 30
    end
  end
  object dspRepr1: TDataSetProvider
    DataSet = scdsRepr1
    Left = 512
    Top = 130
  end
  object scdsRepr1: TSQLDataSet
    CommandText = 
      'select REPR.NOME_REPRFOR, '#13#10'          REPR.FUNCAO, '#13#10'          R' +
      'EPR.UF,'#13#10'          REPR.NUMERO,'#13#10'          REPR.COMPLEMENTO,'#13#10'  ' +
      '        CBO.CD_CBO_SAUDE'#13#10'from REPR_FORNECEDOR REPR'#13#10'INNER JOIN ' +
      ' TB_CBO_SAUDE CBO ON CBO.NM_CBO_SAUDE = '#13#10'FUNCAO'#13#10' where '#13#10'REPR.' +
      'COD_FORNECEDOR = :PRCOD'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'PRCOD'
        ParamType = ptInput
      end>
    SQLConnection = DM.sqlsisAdimin
    Left = 472
    Top = 130
    object scdsRepr1NOME_REPRFOR: TStringField
      FieldName = 'NOME_REPRFOR'
      Size = 60
    end
    object scdsRepr1FUNCAO: TStringField
      FieldName = 'FUNCAO'
      Size = 60
    end
    object scdsRepr1UF: TStringField
      FieldName = 'UF'
      Size = 2
    end
    object scdsRepr1NUMERO: TStringField
      FieldName = 'NUMERO'
      Size = 10
    end
    object scdsRepr1COMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 30
    end
    object scdsRepr1CD_CBO_SAUDE: TStringField
      FieldName = 'CD_CBO_SAUDE'
      Required = True
      Size = 12
    end
  end
  object vcl_guiaconsulta: TVCLReport
    AsyncExecution = False
    Title = 'Untitled'
    Left = 368
    Top = 272
  end
end
